home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
TK-PAGER.ZIP
/
PAGER.PPS
< prev
next >
Wrap
Text File
|
1996-10-08
|
2KB
|
45 lines
;----------------------------------------------------------------------------;
; ami/x pager v1.o by the black assassin o8/1o/96 ;
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~ ;
; Thought i would also put in the sorce so u can edit this, change it, color ;
; it, cut it up or whatever just dont be lame and rip it and if u do then ;
; just give credit where credit is due ok.. l8a dudes.. the black assassin ;
;----------------------------------------------------------------------------;
String S
Byte A
cls
println " @X01---|---------------------------------------------|---"
println " | @X03Paging Sysop please wait. @X01|"
println " | @X06Page Reason@X05: @X08[@X07............................@X08] @X01|"
println " ---|---------------------------------------------|---"
println " | @X02Progress @X01|"
println " ---|---------------------------------------------|---"
ansipos 31,3
inputstr "_", S, 7, 28, mask_ascii(), 0
if (len(S) = 0) then
cls
end
endif
if (upper(readline(ppepath() + "PAGER.CFG", 2)) = "Y") then
FAppend 1, PpePath() + "PAGER.LOG", 1, 3
FPutln 1, U_Name() + space(30-Len(U_Name())) + String(Date()) + " " + String(Time()) + " "+S
FClose 1
endif
pageon
ansipos 26, 5
color 2
for A = 1 to 30
print "."
if (A < readline(ppepath() + "PAGER.CFG", 1)+1) sound 400
if (A = readline(ppepath() + "PAGER.CFG", 1)+1) sound 0
delay 50
if (minkey() <> "") break
if (kinkey() <> "") then
sound 0
call readline(ppepath() + "PAGER.CFG", 3)
end
endif
next
;----------------------------------------------------------------------------;